

#ifdef INT
#  define TYPE INTEGER
#else
#ifdef FLOAT
#  define TYPE REAL
#else
 #error "Need to give MACRO definition for element type : -DTYPE_INT or -DTYPE_FLOAT"
#endif
#endif

  program trucc
   
   implicit none
   TYPE :: A;
   write(*,*) 'A=',A
   
   End program trucc


